home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / MORE SUBROUTINES DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  37 lines
  1. 1  REM  ************<CTRL-I>************
  2. 2  REM  * MORE SUBROUTINES D<CTRL-I>MO *
  3. 3  REM  *   BY  P.S. DUNSEATH   *
  4. 9  REM  *  COPYRIGHT (C)  1983  *
  5. 5  REM  *  BY MICROS<CTRL-I>ARC, INC.  *
  6. 6  REM  *  LINCOLN, MA.  017<CTRL-I>3  *
  7. 7  REM  *************************
  8. 9  TEXT : HOME : VTAB 11: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": FOR I = 1 TO 3000: NEXT 
  9. 10  REM  DEMONSTRATION PROGRAM
  10. 15  GOSUB 98: GOSUB 150: GOSUB 98: GOSUB 151: GOSUB 98: GOSUB 152: GOSUB 98: GOSUB 153
  11. 20  GOSUB 98: GOSUB 154: GOSUB 98: GOSUB 155
  12. 22  TEXT : HOME 
  13. 25  INVERSE 
  14. 30 ST$ = "TOP LINE PROTECTED"
  15. 35  FOR I = 1 TO 500: NEXT : GOSUB 158
  16. 38  NORMAL 
  17. 40  LIST 
  18. 50  VTAB 23
  19. 60  POKE 34,0
  20. 65  INVERSE 
  21. 70 ST$ = "BOTTOM LINE PROTECTED"
  22. 80  FOR I = 1 TO 500: NEXT : GOSUB 159
  23. 82  NORMAL 
  24. 85  LIST 
  25. 90  POKE 35,24
  26. 95  CALL  -936
  27. 96  END 
  28. 98  FOR J = 1 TO 2000: NEXT : CALL  -1998: FOR J = 1 TO 2000: NEXT : RETURN : REM  FILLS SCREEN FOR WIPING DEMO****************************************
  29. 100  END 
  30. 150  FOR I = 24 TO 13  STEP  -1: HTAB 1: VTAB I: CALL  -868: VTAB (25 -I): CALL  -868: FOR J = 1 TO 50: NEXT : NEXT : CALL  -936: RETURN : REM  SCREEN WIPE FROM TOP AND BOTTOM TO MIDDLE******************
  31. 151  FOR I = 13 TO 24: HTAB 1: VTAB I: CALL  -868: VTAB (25 -I): CALL  -868: FOR J = 1 TO 50: NEXT : NEXT : RETURN : REM  SCREEN WIPE FROM MIDDLE TO TOP AND BOTTOM ****************************************
  32. 152  FOR Z = 1 TO 20:X = 20 -Z: POKE 32,X: POKE 33,(2 *Z): CALL  -936: FOR I = 1 TO 50: NEXT : NEXT : RETURN : REM   CURTAINS****************************************
  33. 153  POKE 33,1: FOR I = 0 TO 20: POKE 32,I: CALL  -936: POKE 32,(40 -I): CALL  -936: FOR J = 1 TO 50: NEXT : NEXT : POKE 33,40: POKE 32,0: RETURN : REM  "SLIDING DOORS" SCREEN WIPE FROM LEFT AND RIGHT EDGES TO CENTRE****************************************
  34. 154  HTAB 1: FOR I = 1 TO 6: VTAB I: CALL  -868: VTAB (2 *I): CALL  -868: VTAB (3 *I): CALL  -868: VTAB (4 *I): CALL  -868: FOR J = 1 TO 100: NEXT : NEXT : CALL  -936: RETURN : REM  "VENETIAN BLINDS" SCREEN WIPE****************************************
  35. 155  FOR I = 1 TO 12: POKE 35,I: CALL  -936: POKE 34,(24 -I): CALL  -936: POKE 35,24: POKE 34,0: POKE 33,I: POKE 32,(I -1): CALL  -936: POKE 32,(41 -(2 *I)): CALL  -936: POKE 32,0: POKE 33,40: FOR J = 1 TO 25: NEXT : NEXT : HOME : REM  SCREEN WIPE FROM 4 EDGES TO MIDDLE**************
  36. 158  HOME : PRINT ST$: PRINT : POKE 34,2: RETURN : REM  PRINTS ST$ AND PROTECTS UNTIL 'POKE 34,0' IS ENCOUNTERED****************************************
  37. 159  VTAB (24): PRINT ST$: POKE 35,22: HOME : RETURN : REM  PRINTS ST$ ON BOTTOM LINE AND PROTECTS UNTIL A 'POKE 35,24' IS ENCOUNTERED****************************************